home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / MAL ©P.f.Howden 1⁄1⁄89 / DIFFROOTSEQNS.TXT < prev    next >
Text File  |  1987-08-26  |  926b  |  21 lines
  1. 'DIFFROOTSEQNS.TXT are test eqns to be MERGEd with DIFFROOTS.
  2. 'These desired lines MUST REPLACE THE same in DIFFROOTS.
  3. 'After use,a fresh DIFFROOTS MUST be loaded.See page128 in book THE UNIVERSAL EQUATION SOLVER FOR details.
  4.  
  5. '10 F(0)=2*X(0)-3*X(1)-17: RETURN
  6. '11 F(1)=X(0)+X(1)-1: RETURN
  7. '2 SIMULTANEOUS ALGEBRAICS.All R, starting C=0.
  8.  
  9. '12 F(2)=X(2)-C(0)*ATN(X(2)/SQR(-X(2)^2+1))-SIN(T)-T*SIN(T):RETURN
  10. '13 F(3)=X(3)-C(1)*ATN(X(2)/SQR(-X(2)^2+1))-T*COS(T)-COS(T)-SIN(T)-C(0)*X(3)/(1-X(2)^2)^.5:RETURN
  11. 'IMPLICIT 2nd ORDER Nonlin D.E.: Starting C's=0,-1: solution Xo=-SIN T.
  12.  
  13. '12 F(2)=8*X(2)^2-2-C(10)*C(1):RETURN
  14. '13 F(3)=16*X(2)*X(3)-C(10)*X(2)-X(11)*C(1): RETURN
  15. '21 F(11)=X(11)^2-1-C(1)^2:RETURN
  16. '22 F(12)=2*X(12)*X(11)-2*C(1)*X(2):RETURN
  17. 'CATENARY 2nd +1st ORDER Nonlin D.E. : C(J)=2,0 for 2nd order,0 for 1st order.
  18. 'Xo=EXP T/2+EXP-T/2=2.255252 ;X1=EXP T/2-EXP-T/2=1.042191 @T=1.
  19.  
  20.                     MACINTOSH LISTING
  21.